home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / basic / ace24dist.lha / ace24.lha / SUBmods / WBarg / test.b < prev    next >
Text File  |  1996-09-11  |  716b  |  34 lines
  1. {*
  2. ** This program must be linked with the ACE
  3. ** SUBprogram library module WBarg.o.
  4. **
  5. ** Try various combinations of icon selection
  6. ** (including just launching the executable)
  7. ** from the Workbench and observe the effects.
  8. **
  9. ** Author: David J Benn
  10. **   Date: 29th,30th December 1994
  11. *}
  12.  
  13. #include <SUBmods/WBarg.h>
  14.  
  15. IF NOT WBlaunched THEN STOP
  16.  
  17. WINDOW 1,,(0,0)-(640,200)
  18.  
  19. FOR i=0 TO WBargcount
  20.   PRINT "[";i;"]";
  21.   theArg$ = WBargpath$(i)+WBarg$(i)
  22.   PRINT TAB(10);theArg$;
  23.   theValue$ = ToolTypeVal$(theArg$,"COLOR")
  24.   PRINT TAB(30);theValue$;
  25.   PRINT TAB(50);ToolTypeValMatched(theValue$,"red");
  26.   PRINT TAB(60);DefaultTool$(theArg$)
  27. NEXT
  28.  
  29. PRINT:PRINT "<< Click close gadget >>"
  30.  
  31. GADGET WAIT 0
  32.  
  33. WINDOW CLOSE 1
  34.